#lang rosetta-racket


(require "scriptecture.rkt")

(provide scriptecture-tessellation-aab-example
         scriptecture-tessellation-nob-example
         scriptecture-tessellation-cylinders-example
         scriptecture-tessellation-cross-cylinders-example)


(define (scriptecture-tessellation-aab-example)
  (view
   (xyz 3.5196556911388197 -10.97223217500431 4.312617691194866)
   (xyz -0.47974823134772393 -1.3168169839291437 -0.7354341272865668)
   (perspective 35)
   (scriptecture-tessellation-aab 25 25 0.3)))

(define (scriptecture-tessellation-nob-example)
  (view
   (xyz 3.7557746079005474 -11.542273666183316 4.610647235156467)
   (xyz -0.47974823134772393 -1.3168169839291437 -0.7354341272865668)
   (perspective 35)
   (scriptecture-tessellation-nob 25 25 0.4)))

(define (scriptecture-tessellation-cylinders-example)
  (view
   (xyz 4.363443110705692 14.701228210595822 7.513692098065285)
   (xyz -3.229556236505602 -5.681931643725363 -4.443727323214802)
   (perspective 35)
   (scriptecture-tessellation-cylinders 25 25 0.3 1 1)))

(define (scriptecture-tessellation-cross-cylinders-example)
  (view
   (xyz 5.408722063244548 28.865192832678233 15.83255118382682)
   (xyz -0.8446854499497367 1.054207660510962 1.5309226018258724)
   (perspective 35)
   (scriptecture-tessellation-cross-cylinders 25 25 0.3 1 2)))